/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCPrivPage_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 61 18 63 6c 61 73 73 20 |........|a.class |
|00000010| 55 42 72 6f 77 73 65 72 | 49 52 43 50 72 69 76 50 |UBrowser|IRCPrivP|
|00000020| 61 67 65 20 65 78 70 61 | 6e 64 73 20 55 42 72 6f |age expa|nds UBro|
|00000030| 77 73 65 72 49 52 43 50 | 61 67 65 42 61 73 65 3b |wserIRCP|ageBase;|
|00000040| 0d 0a 0d 0a 76 61 72 20 | 73 74 72 69 6e 67 20 50 |....var |string P|
|00000050| 72 69 76 4e 69 63 6b 3b | 0d 0a 76 61 72 20 55 42 |rivNick;|..var UB|
|00000060| 72 6f 77 73 65 72 49 52 | 43 53 79 73 74 65 6d 50 |rowserIR|CSystemP|
|00000070| 61 67 65 20 53 79 73 74 | 65 6d 50 61 67 65 3b 0d |age Syst|emPage;.|
|00000080| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 43 6c 6f 73 |...funct|ion Clos|
|00000090| 65 50 61 67 65 28 29 0d | 0a 7b 0d 0a 09 53 79 73 |ePage().|.{...Sys|
|000000a0| 74 65 6d 50 61 67 65 2e | 50 61 67 65 50 61 72 65 |temPage.|PagePare|
|000000b0| 6e 74 2e 44 65 6c 65 74 | 65 50 61 67 65 28 4f 77 |nt.Delet|ePage(Ow|
|000000c0| 6e 65 72 54 61 62 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |nerTab);|..}....f|
|000000d0| 75 6e 63 74 69 6f 6e 20 | 50 72 6f 63 65 73 73 49 |unction |ProcessI|
|000000e0| 6e 70 75 74 28 73 74 72 | 69 6e 67 20 54 65 78 74 |nput(str|ing Text|
|000000f0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 4c 65 66 74 28 54 |)..{...i|f(Left(T|
|00000100| 65 78 74 2c 20 34 29 20 | 7e 3d 20 22 2f 6d 65 20 |ext, 4) |~= "/me |
|00000110| 22 29 0d 0a 09 7b 0d 0a | 09 09 50 72 69 76 61 74 |")...{..|..Privat|
|00000120| 65 41 63 74 69 6f 6e 28 | 53 79 73 74 65 6d 50 61 |eAction(|SystemPa|
|00000130| 67 65 2e 4e 69 63 6b 4e | 61 6d 65 2c 20 4d 69 64 |ge.NickN|ame, Mid|
|00000140| 28 54 65 78 74 2c 20 34 | 29 29 3b 0d 0a 09 09 53 |(Text, 4|));....S|
|00000150| 79 73 74 65 6d 50 61 67 | 65 2e 4c 69 6e 6b 2e 53 |ystemPag|e.Link.S|
|00000160| 65 6e 64 43 68 61 6e 6e | 65 6c 41 63 74 69 6f 6e |endChann|elAction|
|00000170| 28 50 72 69 76 4e 69 63 | 6b 2c 20 4d 69 64 28 54 |(PrivNic|k, Mid(T|
|00000180| 65 78 74 2c 20 34 29 29 | 3b 0d 0a 09 7d 0d 0a 09 |ext, 4))|;...}...|
|00000190| 65 6c 73 65 0d 0a 09 69 | 66 28 4c 65 66 74 28 54 |else...i|f(Left(T|
|000001a0| 65 78 74 2c 20 31 29 20 | 3d 3d 20 22 2f 22 29 0d |ext, 1) |== "/").|
|000001b0| 0a 09 09 53 79 73 74 65 | 6d 50 61 67 65 2e 50 72 |...Syste|mPage.Pr|
|000001c0| 6f 63 65 73 73 49 6e 70 | 75 74 28 54 65 78 74 29 |ocessInp|ut(Text)|
|000001d0| 3b 0d 0a 09 65 6c 73 65 | 0d 0a 09 7b 0d 0a 09 09 |;...else|...{....|
|000001e0| 69 66 28 54 65 78 74 20 | 21 3d 20 22 22 29 0d 0a |if(Text |!= "")..|
|000001f0| 09 09 7b 0d 0a 09 09 09 | 50 72 69 76 61 74 65 54 |..{.....|PrivateT|
|00000200| 65 78 74 28 53 79 73 74 | 65 6d 50 61 67 65 2e 4e |ext(Syst|emPage.N|
|00000210| 69 63 6b 4e 61 6d 65 2c | 20 54 65 78 74 29 3b 0d |ickName,| Text);.|
|00000220| 0a 09 09 09 53 79 73 74 | 65 6d 50 61 67 65 2e 4c |....Syst|emPage.L|
|00000230| 69 6e 6b 2e 53 65 6e 64 | 43 68 61 6e 6e 65 6c 54 |ink.Send|ChannelT|
|00000240| 65 78 74 28 50 72 69 76 | 4e 69 63 6b 2c 20 54 65 |ext(Priv|Nick, Te|
|00000250| 78 74 29 3b 0d 0a 09 09 | 7d 0d 0a 09 7d 0d 0a 7d |xt);....|}...}..}|
|00000260| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 43 68 61 |....func|tion Cha|
|00000270| 6e 67 65 64 4e 69 63 6b | 28 73 74 72 69 6e 67 20 |ngedNick|(string |
|00000280| 4f 6c 64 4e 69 63 6b 2c | 20 73 74 72 69 6e 67 20 |OldNick,| string |
|00000290| 4e 65 77 4e 69 63 6b 29 | 0d 0a 7b 0d 0a 09 54 65 |NewNick)|..{...Te|
|000002a0| 78 74 41 72 65 61 2e 41 | 64 64 54 65 78 74 28 22 |xtArea.A|ddText("|
|000002b0| 2a 2a 2a 20 22 24 4f 6c | 64 4e 69 63 6b 40 4e 6f |*** "$Ol|dNick@No|
|000002c0| 77 4b 6e 6f 77 6e 41 73 | 54 65 78 74 40 4e 65 77 |wKnownAs|Text@New|
|000002d0| 4e 69 63 6b 24 22 2e 22 | 29 3b 0d 0a 09 50 72 69 |Nick$"."|);...Pri|
|000002e0| 76 4e 69 63 6b 20 3d 20 | 4e 65 77 4e 69 63 6b 3b |vNick = |NewNick;|
|000002f0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000300| 55 73 65 72 51 75 69 74 | 28 73 74 72 69 6e 67 20 |UserQuit|(string |
|00000310| 4e 69 63 6b 2c 20 73 74 | 72 69 6e 67 20 52 65 61 |Nick, st|ring Rea|
|00000320| 73 6f 6e 29 0d 0a 7b 0d | 0a 09 54 65 78 74 41 72 |son)..{.|..TextAr|
|00000330| 65 61 2e 41 64 64 54 65 | 78 74 28 22 2a 2a 2a 20 |ea.AddTe|xt("*** |
|00000340| 22 24 4e 69 63 6b 40 51 | 75 69 74 54 65 78 74 40 |"$Nick@Q|uitText@|
|00000350| 22 28 22 24 52 65 61 73 | 6f 6e 24 22 29 2e 22 29 |"("$Reas|on$").")|
|00000360| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000370| 20 50 72 69 76 61 74 65 | 54 65 78 74 28 73 74 72 | Private|Text(str|
|00000380| 69 6e 67 20 4e 69 63 6b | 2c 20 73 74 72 69 6e 67 |ing Nick|, string|
|00000390| 20 54 65 78 74 29 0d 0a | 7b 0d 0a 09 54 65 78 74 | Text)..|{...Text|
|000003a0| 41 72 65 61 2e 41 64 64 | 54 65 78 74 28 22 3c 22 |Area.Add|Text("<"|
|000003b0| 24 4e 69 63 6b 24 22 3e | 20 22 24 54 65 78 74 29 |$Nick$">| "$Text)|
|000003c0| 3b 0d 0a 09 69 66 28 21 | 47 65 74 50 61 72 65 6e |;...if(!|GetParen|
|000003d0| 74 28 63 6c 61 73 73 27 | 55 57 69 6e 64 6f 77 46 |t(class'|UWindowF|
|000003e0| 72 61 6d 65 64 57 69 6e | 64 6f 77 27 29 2e 62 57 |ramedWin|dow').bW|
|000003f0| 69 6e 64 6f 77 56 69 73 | 69 62 6c 65 20 26 26 20 |indowVis|ible && |
|00000400| 4e 69 63 6b 20 21 3d 20 | 53 79 73 74 65 6d 50 61 |Nick != |SystemPa|
|00000410| 67 65 2e 4e 69 63 6b 4e | 61 6d 65 29 0d 0a 09 09 |ge.NickN|ame)....|
|00000420| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|00000430| 2e 43 6c 69 65 6e 74 4d | 65 73 73 61 67 65 28 22 |.ClientM|essage("|
|00000440| 49 52 43 3a 20 3c 22 24 | 4e 69 63 6b 24 22 3e 20 |IRC: <"$|Nick$"> |
|00000450| 22 24 54 65 78 74 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |"$Text);|..}....f|
|00000460| 75 6e 63 74 69 6f 6e 20 | 50 72 69 76 61 74 65 41 |unction |PrivateA|
|00000470| 63 74 69 6f 6e 28 73 74 | 72 69 6e 67 20 4e 69 63 |ction(st|ring Nic|
|00000480| 6b 2c 20 73 74 72 69 6e | 67 20 54 65 78 74 29 0d |k, strin|g Text).|
|00000490| 0a 7b 0d 0a 09 54 65 78 | 74 41 72 65 61 2e 41 64 |.{...Tex|tArea.Ad|
|000004a0| 64 54 65 78 74 28 22 2a | 20 22 24 4e 69 63 6b 24 |dText("*| "$Nick$|
|000004b0| 22 20 22 24 54 65 78 74 | 29 3b 0d 0a 09 69 66 28 |" "$Text|);...if(|
|000004c0| 21 47 65 74 50 61 72 65 | 6e 74 28 63 6c 61 73 73 |!GetPare|nt(class|
|000004d0| 27 55 57 69 6e 64 6f 77 | 46 72 61 6d 65 64 57 69 |'UWindow|FramedWi|
|000004e0| 6e 64 6f 77 27 29 2e 62 | 57 69 6e 64 6f 77 56 69 |ndow').b|WindowVi|
|000004f0| 73 69 62 6c 65 20 26 26 | 20 4e 69 63 6b 20 21 3d |sible &&| Nick !=|
|00000500| 20 53 79 73 74 65 6d 50 | 61 67 65 2e 4e 69 63 6b | SystemP|age.Nick|
|00000510| 4e 61 6d 65 29 0d 0a 09 | 09 47 65 74 50 6c 61 79 |Name)...|.GetPlay|
|00000520| 65 72 4f 77 6e 65 72 28 | 29 2e 43 6c 69 65 6e 74 |erOwner(|).Client|
|00000530| 4d 65 73 73 61 67 65 28 | 22 49 52 43 3a 20 2a 20 |Message(|"IRC: * |
|00000540| 22 24 4e 69 63 6b 24 22 | 20 22 24 54 65 78 74 29 |"$Nick$"| "$Text)|
|00000550| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000560| 20 55 73 65 72 4e 6f 74 | 69 63 65 28 73 74 72 69 | UserNot|ice(stri|
|00000570| 6e 67 20 4e 69 63 6b 2c | 20 73 74 72 69 6e 67 20 |ng Nick,| string |
|00000580| 54 65 78 74 29 0d 0a 7b | 0d 0a 09 54 65 78 74 41 |Text)..{|...TextA|
|00000590| 72 65 61 2e 41 64 64 54 | 65 78 74 28 22 2d 22 24 |rea.AddT|ext("-"$|
|000005a0| 4e 69 63 6b 24 22 2d 20 | 22 24 54 65 78 74 29 3b |Nick$"- |"$Text);|
|000005b0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000005c0| 49 73 41 77 61 79 28 73 | 74 72 69 6e 67 20 4e 69 |IsAway(s|tring Ni|
|000005d0| 63 6b 2c 20 73 74 72 69 | 6e 67 20 4d 65 73 73 61 |ck, stri|ng Messa|
|000005e0| 67 65 29 0d 0a 7b 0d 0a | 09 54 65 78 74 41 72 65 |ge)..{..|.TextAre|
|000005f0| 61 2e 41 64 64 54 65 78 | 74 28 4e 69 63 6b 40 53 |a.AddTex|t(Nick@S|
|00000600| 79 73 74 65 6d 50 61 67 | 65 2e 49 73 41 77 61 79 |ystemPag|e.IsAway|
|00000610| 54 65 78 74 24 22 3a 20 | 22 24 4d 65 73 73 61 67 |Text$": |"$Messag|
|00000620| 65 29 3b 0d 0a 7d 0d 0a | 0d 0a 00                |e);..}..|...     |
+--------+-------------------------+-------------------------+--------+--------+